(file-truename): Do the right thing when /home/gp2/eric = "".

diff --git a/lisp/files.el b/lisp/files.el
index b0f92ed0bb51df99771c43a8aa10e48a873de980..75e91e6b83d9c54c6de16641f9b4fefb4b6cbe67 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -314,7 +314,10 @@ The truename of a file name is found by chasing symbolic links
 both at the level of the file and at the level of the directories
 containing it, until no links are left at any level."
   (if (string= filename "~")
-      (setq filename (expand-file-name filename)))
+      (progn
+       (setq filename (expand-file-name filename))
+       (if (string= filename "")
+           (setq filename "/"))))
   (let ((handler (find-file-name-handler filename)))
     ;; For file name that has a special handler, call handler.
     ;; This is so that ange-ftp can save time by doing a no-op.